﻿Imports System.Web.SessionState
Imports utilitiesLibrary, ecomLibrary

Public Class Global_asax
    Inherits System.Web.HttpApplication

    Dim objDB As New DBConnect

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application is started
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        objDB = New DBConnect
        Session("db") = objDB
    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires upon attempting to authenticate the use
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when an error occurs
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Dim objSer As New Serialize
        Dim objCart As cart = Session("cart")
        Dim LoginID As String = objCart.LoginID

        objSer.WriteCartS(objCart, LoginID)

        objDB = Session("db")
        objDB.closeConSql()
    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application ends
    End Sub

End Class